home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8504a.d64 / bigcopy erzeuger (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  38 lines
  1. 5 REM   WICHTIG !!!
  2. 6 REM   BEIM EINGEBEN VON BIGCOPY ERZEUGER UNBEDINGT DIE REM-ZEILEN WEGLASSEN.
  3. 10 REM  BIGCOPY ERZEUGER ERZEUGT DAS DRUCKPROGRAMM BIGCOPY 64 AUF DISKETTE
  4. 20 REM  DAZU LAEDT MAN ZUERST BIGCOPY DATAS UND STARTET ES.
  5. 30 REM  WENN ALLES OKAY IST,LAEDT MAN BIGCOPY ERZEUGER EIN,LEGT EINE FREIE
  6. 40 REM  DISKETTE EIN UND STARTE DAS PROGRAMM MIT RUN1000.
  7. 50 REM  NACH CA. 1 MINUTE STEHT BIGCOPY 64 AUF DISKETTE UND KANN JEDERZEIT
  8. 60 REM  EINGELESEN UND GESTARTET WERDEN.
  9. 100 POKE55,255:POKE56,12:REM MASCHINENPROGRAMM SCHUETZEN
  10. 110 PRINT"[147]":PRINT"       -----BIGCOPY 64-----"
  11. 120 PRINT"--FUER COMMODORE MPS 801 MATRIXDRUCKER--"
  12. 130 PRINT:PRINT"DRUCKER ANGESCHLOSSEN UND EINGESCHALTET ? (Y/N)"
  13. 140 GETA$:IFA$<>"Y"THEN140
  14. 150 PRINT:PRINT:PRINT"WELCHER DER 7 HIRES GRAPHIKSPEICHER SOLL"
  15. 160 PRINT"MIT BIGCOPY AUSGEDRUCKT WERDEN ? (1-7) "
  16. 170 GETB$:A=VAL(B$):IF(A<1)OR(A>7)THEN170
  17. 180 PRINT:PRINT"ES WIRD BILD";A;"AUSGEDRUCKT!"
  18. 190 PRINT:PRINT"JETZT NOCH CA. 13 MINUTEN GEDULD!":FORT=1TO1000:NEXT
  19. 200 A=A*32:POKE3340,A:POKE3336,32:REM A=BILDADRESSE
  20. 210 SYS3328:REM BILD WIRD NACH $2000 GEBRACHT
  21. 220 POKE53265,59:POKE53272,24:PRINT"[147]":REM BILD WIRD ANGEZEIGT
  22. 230 SYS3383:REM DRUCKROUTINE BEGINNT
  23. 240 POKE3340,32:POKE3336,A
  24. 250 POKE53265,155:POKE53272,21
  25. 260 SYS3328:REM BILD WIRD NACH A ZURUECKGEBRACHT
  26. 270 PRINT"NOCH EIN BILD ? (Y/N)"
  27. 280 GETZ$
  28. 290 IF Z$="Y"THEN GOTO110
  29. 300 IF Z$<>"N"THEN280
  30. 310 IF Z$="N"THEN SYS64738
  31. 400 REM ZEILEN 1000-1040 ERZEUGEN BIGCOPY AUF DISKETTE
  32. 1000 OPEN1,8,1,"BIGCOPY 64"
  33. 1010 PRINT#1,CHR$(1);CHR$(8);
  34. 1020 FORT=2049TO2687:PRINT#1,CHR$(PEEK(T));:NEXT
  35. 1030 FORT=2688TO3326:PRINT#1,CHR$(0);:NEXT
  36. 1040 FORT=49152TO50042:PRINT#1,CHR$(PEEK(T));:NEXT
  37. 1050 CLOSE1
  38.